home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M801.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  10KB  |  450 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     Goto LABEL001
  39.     End
  40.     If (0 == 0) STRING001 = "NO"
  41.     If (0 == 1) STRING001 = "YES"
  42.  
  43.     EndFunc
  44.  
  45.     :LABEL001
  46.     STRING002 = String(PcbNode())
  47.     If (PcbNode() == 0) STRING002 = "A"
  48.     STRING005 = GetEnv(STRING002 + "RECNO")
  49.     STRING005 = ToInteger(STRING005)
  50.     DOpen 0, PPEPath() + "USER.DBF", 0
  51.     DOpen 2, PPEPath() + "WEAPONS.DBF", 0
  52.     DGo 0, STRING005
  53.     If ((DGet(0, "WEAPN1") < 1) && (DGet(0, "WEAPN2") > 1)) Then
  54.         DFCopy 0, "WEAPN1", 0, "WEAPN2"
  55.         DFCopy 0, "WEAPT1", 0, "WEAPT2"
  56.         DFCopy 0, "WEAPA1", 0, "WEAPA2"
  57.         DFCopy 0, "WEAPD1", 0, "WEAPD2"
  58.         DPut 0, "WEAPN2", 0
  59.         DPut 0, "WEAPT2", "NONE"
  60.         DPut 0, "WEAPA2", 0
  61.         DPut 0, "WEAPD2", 0
  62.     Endif
  63.     If (DGet(0, "WEAPN2") < DGet(0, "S_W_NUMBER")) Then
  64.         DFCopy 0, "WEAPN2", 0, "S_W_NUMBER"
  65.         DFCopy 0, "WEAPT2", 0, "S_W_NAME"
  66.         DFCopy 0, "WEAPA2", 0, "S_W_AMMO"
  67.         DFCopy 0, "WEAPD2", 0, "S_W_DAMAGE"
  68.         DPut 0, "S_W_NUMBER", 0
  69.         DPut 0, "S_W_NAME", "NONE"
  70.         DPut 0, "S_W_AMMO", 0
  71.         DPut 0, "S_W_DAMAGE", 0
  72.     Endif
  73.     If (DGet(0, "WEAPN1") > 0) Then
  74.         DGet 0, "WEAPA1", INTEGER001
  75.         INTEGER004 = 50 - INTEGER001
  76.     Endif
  77.     If (DGet(0, "WEAPN2") > 0) Then
  78.         DGet 0, "WEAPA2", INTEGER002
  79.         INTEGER004 = INTEGER004 + 50 - INTEGER002
  80.     Endif
  81.     If (DGet(0, "S_W_NUMBER") > 0) Then
  82.         DGet 0, "S_W_AMMO", INTEGER003
  83.         INTEGER004 = INTEGER004 + 50 - INTEGER003
  84.     Endif
  85.     :LABEL002
  86.     Cls
  87.     Newline
  88.     PrintLn "@X0C        ╖ ╓ ╥ ╥  ╓╖ ╓╖ ╓╖ / ╓╖    ╖ ╓ ╓─ ╓╖ ╓╖ ╓╖ ╓╖    ╖ ╓ ╓╖ ╓╖ ╖╓ ╓╖@X07"
  89.     PrintLn "@X0C        ║╥║ ║ ║  ╙╖ ║║ ║║   ╙╖    ║╥║ ╟  ╟╢ ╟╜ ║║ ║║    ║╥║ ║║ ╟╜ ╟< ╙╖@X07"
  90.     PrintLn "@X0C        ╙╨╜ ╨ ╙─ ╙╜ ╙╜ ╜╙   ╙╜    ╙╨╜ ╙─ ╜╙ ╜  ╙╜ ╜╙    ╙╨╜ ╙╜ ╜╙ ╜╙ ╙╜@X07"
  91.     Newline
  92.     PrintLn "@X01   ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  93.     Newline
  94.     PrintLn "@X0E        Welcome to Wilson's Weapon Works, where only the finest quality@X0F"
  95.     PrintLn "@X0E   weapons are sold.  We offer a wide range of weapons, ammunition, and@X0F"
  96.     PrintLn "@X0E   weapon power units, and NEVER run out of stock.  We also offer the@X0F"
  97.     PrintLn "@X0E   best prices in town on used weapons!@X0F"
  98.     PrintLn "@X0E        Be sure to check out our new Armor section, where we not only@X0F"
  99.     PrintLn "@X0E   carry every type of armor from Life Pod Survival Suits (LPSS Level 2)@X0F"
  100.     PrintLn "@X0E   to Open-Air powered armor, the BEST Armor the Imperium will allows to@X0F"
  101.     PrintLn "@X0E   be sold legally, but offer full repair services for your current armor.@X0F"
  102.     Newline
  103.     PrintLn "@X01   ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  104.     Newline
  105.     PrintLn "@X0C     (@X0EA@X0C)mmunition Sales  (@X0ES@X0C)ell a Weapon  (@X0EW@X0C)eapons Sales  (@X0EQ@X0C)uit back to menu@X0F"
  106.     Newline
  107.     Print "@X0A     ", Trim(DGet(0, "CASH"), " "), "@X0E Credits on hand - "
  108.     InputStr "@X0EPick a department, Soldier @X0A> _", STRING003, 10, 1, "ASWQ", 0 + 8
  109.     If (STRING003 == "") Goto LABEL002
  110.     Select Case (STRING003)
  111.         Case "A"
  112.             If (INTEGER004 < 1) Then
  113.                 Backup 80
  114.                 ClrEol
  115.                 PrintLn "@X8CYOU DON'T NEED ANY AMMO@X0F"
  116.                 Delay (2 * 182) / 10
  117.                 Goto LABEL002
  118.             Endif
  119.             Goto LABEL003
  120.         Case "S"
  121.             If (DGet(0, "WEAPN1") + DGet(0, "WEAPN2") + DGet(0, "S_W_NUMBER") < 1) Then
  122.                 Backup 80
  123.                 ClrEol
  124.                 PrintLn "@X0CYou don't have any weapons to sell!@X0F"
  125.                 Delay (2 * 182) / 10
  126.                 Goto LABEL002
  127.             Endif
  128.             Goto LABEL004
  129.         Case "W"
  130.             If (DGet(0, "CASH") < 250) Then
  131.                 Backup 80
  132.                 ClrEol
  133.                 PrintLn "@X0AYou haven't got the cash to buy any weapons!@X0F"
  134.                 Delay (2 * 182) / 10
  135.                 Goto LABEL002
  136.             Endif
  137.             If (((DGet(0, "WEAPN1") > 0) && (DGet(0, "WEAPN2") > 0)) && (DGet(0, "S_W_NUMBER") > 0)) Then
  138.                 Backup 80
  139.                 ClrEol
  140.                 PrintLn "@X0BYou can't carry another weapon - Sell one first@X0F"
  141.                 Delay (2 * 182) / 10
  142.                 Goto LABEL002
  143.             Endif
  144.             Goto LABEL005
  145.         Case "Q"
  146.             Goto LABEL008
  147.     End Select
  148.     :LABEL003
  149.     Cls
  150.     Newline
  151.     PrintLn "@X01  ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  152.     Newline
  153.     PrintLn "@X0C       ╔═╗ ╔╦╗ ╔╦╗ ╦ ╦ ╔╗╔ ═╦═ ═╦═ ═╦═ ╔═╗ ╔╗╔     ╔═╗ ╔═╗ ╦   ╔═╗ ╔═╗ @X0F"
  154.     PrintLn "@X0C       ╠═╣ ║║║ ║║║ ║ ║ ║║║  ║   ║   ║  ║ ║ ║║║     ╚═╗ ╠═╣ ║   ╠═  ╚═╗ @X0F"
  155.     PrintLn "@X0C       ╩ ╩ ╩ ╩ ╩ ╩ ╚═╝ ╩╚╝ ═╩═  ╩  ═╩═ ╚═╝ ╩╚╝     ╚═╝ ╩ ╩ ╚══ ╚══ ╚═╝ @X0F"
  156.     Newline
  157.     PrintLn "@X01  ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  158.     Newline
  159.     PrintLn "   @X0BWe offer the best deal in town on ammunition prices.  All calibers, "
  160.     PrintLn "   @X0Bratings, and voltages cost a mere credit each. You need @X0C", INTEGER004, "@X0B rounds."
  161.     Newline
  162.     If (DGet(0, "CASH") < INTEGER004) Then
  163.         PrintLn "  @X0CYou don't have enough cash to buy a full charge...@X0F"
  164.         PrintLn 
  165.         Delay (4 * 182) / 10
  166.         Goto LABEL002
  167.     Endif
  168.     PrintLn "                @X02(@X0DM@X02)@X0Aax out Ammunition  "
  169.     PrintLn "                @X02(@X0CQ@X02)@X0Auit                "
  170.     Newline
  171.     InputStr "              Your Choice Soldier @X02> _", STRING003, 10, 1, "MQ", 0 + 8
  172.     Select Case (STRING003)
  173.         Case "M"
  174.             DPut 0, "CASH", DGet(0, "CASH") - INTEGER004
  175.             If (DGet(0, "WEAPN1") > 0) DPut 0, "WEAPA1", 50
  176.             If (DGet(0, "WEAPN2") > 0) DPut 0, "WEAPA2", 50
  177.             If (DGet(0, "S_W_NUMBER") > 0) DPut 0, "S_W_NUMBER", 50
  178.             INTEGER004 = 0
  179.             Goto LABEL002
  180.         Case "Q"
  181.             Goto LABEL002
  182.     End Select
  183.     :LABEL004
  184.     Cls
  185.     Newline
  186.     PrintLn "@X01  ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  187.     Newline
  188.     PrintLn "@X0C               ═╦═ ╦ ╦ ╔═╗     ╔═╗ ╔═╗ ╔╦╗ ╔═╗ ╔═╗ ╦ ╦ @X0F"
  189.     PrintLn "@X0C                ║  ╠═╣ ╠═      ╠═╣ ╠╦╝ ║║║ ║ ║ ╠╦╝ ╚╦╝ @X0F"
  190.     PrintLn "@X0C                ╩  ╩ ╩ ╚══     ╩ ╩ ╩╚═ ╩ ╩ ╚═╝ ╩╚═  ╩ @X0F"
  191.     Newline
  192.     PrintLn "@X01  ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  193.     Newline
  194.     If (DGet(0, "WEAPN1") > 0) Then
  195.         DTop 2
  196.         DGo 2, DGet(0, "WEAPN1")
  197.         STRING006 = Trim(DGet(0, "WEAPT1"), " ") + "@X0E·························"
  198.         STRING006 = Left(STRING006, 25)
  199.         INTEGER008 = Random(4) + 6
  200.         INTEGER005 = (DGet(2, "COST") * 10) / INTEGER008
  201.         PrintLn 
  202.         PrintLn "@POS:15@@X02(@X0DA@X02) @X0B ", STRING006, "@POS:25@@X02Worth@X0A ", INTEGER005
  203.     Endif
  204.     If (DGet(0, "WEAPN2") > 0) Then
  205.         DTop 2
  206.         DGo 2, DGet(0, "WEAPN2")
  207.         STRING007 = Trim(DGet(0, "WEAPT2"), " ") + "@X0E·························"
  208.         STRING007 = Left(STRING007, 25)
  209.         INTEGER008 = Random(4) + 6
  210.         INTEGER006 = (DGet(2, "COST") * 10) / INTEGER008
  211.         PrintLn "@POS:15@@X02(@X0DB@X02) @X0B ", STRING007, "@X02Worth@X0A ", INTEGER006
  212.     Endif
  213.     If (DGet(0, "S_W_NUMBER") > 0) Then
  214.         DTop 2
  215.         DGo 2, DGet(0, "S_W_NUMBER")
  216.         STRING008 = Trim(DGet(0, "S_W_NAME"), " ") + "@X0E·························"
  217.         STRING008 = Left(STRING008, 25)
  218.         INTEGER008 = Random(4) + 6
  219.         INTEGER007 = (DGet(2, "COST") * 10) / INTEGER008
  220.         PrintLn "@POS:15@@X02(@X0DC@X02) @X0B ", STRING008, "@X02Worth@X0A ", INTEGER007
  221.     Endif
  222.     Newlines 2
  223.     InputStr "   @X0AWeapon to sell @X02(@X0CQ@X02)@X0Cuit @X02> _", STRING003, 10, 1, "ABCQ", 0 + 8
  224.     If (STRING003 == " ") Goto LABEL004
  225.     Select Case (STRING003)
  226.         Case "A"
  227.             DPut 0, "CASH", DGet(0, "CASH") + INTEGER005
  228.             Backup 80
  229.             ClrEol
  230.             PrintLn "@X0AYou now have@X0B ", Trim(DGet(0, "CASH"), " "), "@X0A credits@X0F"
  231.             Delay (2 * 182) / 10
  232.             DPut 0, "WEAPN1", 0
  233.             DPut 0, "WEAPT1", "NONE"
  234.             DPut 0, "WEAPA1", 0
  235.             DPut 0, "WEAPD1", 0
  236.             If ((DGet(0, "WEAPN1") < 1) && (DGet(0, "WEAPN2") > 1)) Then
  237.                 DFCopy 0, "WEAPN1", 0, "WEAPN2"
  238.                 DFCopy 0, "WEAPT1", 0, "WEAPT2"
  239.                 DFCopy 0, "WEAPA1", 0, "WEAPA2"
  240.                 DFCopy 0, "WEAPD1", 0, "WEAPD2"
  241.                 DPut 0, "WEAPN2", 0
  242.                 DPut 0, "WEAPT2", "NONE"
  243.                 DPut 0, "WEAPA2", 0
  244.                 DPut 0, "WEAPD2", 0
  245.             Endif
  246.             If (DGet(0, "WEAPN2") < DGet(0, "S_W_NUMBER")) Then
  247.                 DFCopy 0, "WEAPN2", 0, "S_W_NUMBER"
  248.                 DFCopy 0, "WEAPT2", 0, "S_W_NAME"
  249.                 DFCopy 0, "WEAPA2", 0, "S_W_AMMO"
  250.                 DFCopy 0, "WEAPD2", 0, "S_W_DAMAGE"
  251.                 DPut 0, "S_W_NUMBER", 0
  252.                 DPut 0, "S_W_NAME", "NONE"
  253.                 DPut 0, "S_W_AMMO", 0
  254.                 DPut 0, "S_W_DAMAGE", 0
  255.             Endif
  256.             Goto LABEL002
  257.         Case "B"
  258.             DPut 0, "CASH", DGet(0, "CASH") + INTEGER006
  259.             Backup 80
  260.             ClrEol
  261.             PrintLn "@X0AYou now have@X0B ", Trim(DGet(0, "CASH"), " "), "@X0A credits@X0F"
  262.             Delay (2 * 182) / 10
  263.             DPut 0, "WEAPN2", 0
  264.             DPut 0, "WEAPT2", "NONE"
  265.             DPut 0, "WEAPA2", 0
  266.             DPut 0, "WEAPD2", 0
  267.             If ((DGet(0, "WEAPN1") < 1) && (DGet(0, "WEAPN2") > 1)) Then
  268.                 DFCopy 0, "WEAPN1", 0, "WEAPN2"
  269.                 DFCopy 0, "WEAPT1", 0, "WEAPT2"
  270.                 DFCopy 0, "WEAPA1", 0, "WEAPA2"
  271.                 DFCopy 0, "WEAPD1", 0, "WEAPD2"
  272.                 DPut 0, "WEAPN2", 0
  273.                 DPut 0, "WEAPT2", "NONE"
  274.                 DPut 0, "WEAPA2", 0
  275.                 DPut 0, "WEAPD2", 0
  276.             Endif
  277.             If (DGet(0, "WEAPN2") < DGet(0, "S_W_NUMBER")) Then
  278.                 DFCopy 0, "WEAPN2", 0, "S_W_NUMBER"
  279.                 DFCopy 0, "WEAPT2", 0, "S_W_NAME"
  280.                 DFCopy 0, "WEAPA2", 0, "S_W_AMMO"
  281.                 DFCopy 0, "WEAPD2", 0, "S_W_DAMAGE"
  282.                 DPut 0, "S_W_NUMBER", 0
  283.                 DPut 0, "S_W_NAME", "NONE"
  284.                 DPut 0, "S_W_AMMO", 0
  285.                 DPut 0, "S_W_DAMAGE", 0
  286.             Endif
  287.             Goto LABEL002
  288.         Case "C"
  289.             DPut 0, "CASH", DGet(0, "CASH") + INTEGER007
  290.             Backup 80
  291.             ClrEol
  292.             PrintLn "@X0Ayou now have @X0B", Trim(DGet(0, "CASH"), " "), "@X0A credits@X0F"
  293.             Delay (2 * 182) / 10
  294.             DPut 0, "S_W_NUMBER", 0
  295.             DPut 0, "S_W_NAME", "NONE"
  296.             DPut 0, "S_W_AMMO", 0
  297.             DPut 0, "S_W_DAMAGE", 0
  298.             If ((DGet(0, "WEAPN1") < 1) && (DGet(0, "WEAPN2") > 1)) Then
  299.                 DFCopy 0, "WEAPN1", 0, "WEAPN2"
  300.                 DFCopy 0, "WEAPT1", 0, "WEAPT2"
  301.                 DFCopy 0, "WEAPA1", 0, "WEAPA2"
  302.                 DFCopy 0, "WEAPD1", 0, "WEAPD2"
  303.                 DPut 0, "WEAPN2", 0
  304.                 DPut 0, "WEAPT2", "NONE"
  305.                 DPut 0, "WEAPA2", 0
  306.                 DPut 0, "WEAPD2", 0
  307.             Endif
  308.             If (DGet(0, "WEAPN2") < DGet(0, "S_W_NUMBER")) Then
  309.                 DFCopy 0, "WEAPN2", 0, "S_W_NUMBER"
  310.                 DFCopy 0, "WEAPT2", 0, "S_W_NAME"
  311.                 DFCopy 0, "WEAPA2", 0, "S_W_AMMO"
  312.                 DFCopy 0, "WEAPD2", 0, "S_W_DAMAGE"
  313.                 DPut 0, "S_W_NUMBER", 0
  314.                 DPut 0, "S_W_NAME", "NONE"
  315.                 DPut 0, "S_W_AMMO", 0
  316.                 DPut 0, "S_W_DAMAGE", 0
  317.             Endif
  318.             Goto LABEL002
  319.         Case "Q"
  320.             Goto LABEL002
  321.     End Select
  322.     :LABEL005
  323.     Cls
  324.     StartDisp 1
  325.     PrintLn "@X0C               ═╦═ ╦ ╦ ╔═╗     ╔═╗ ╔═╗ ╔╦╗ ╔═╗ ╔═╗ ╦ ╦           @X0F"
  326.     PrintLn "@X0C                ║  ╠═╣ ╠═      ╠═╣ ╠╦╝ ║║║ ║ ║ ╠╦╝ ╚╦╝           @X0F"
  327.     PrintLn "@X0C                ╩  ╩ ╩ ╚══     ╩ ╩ ╩╚═ ╩ ╩ ╚═╝ ╩╚═  ╩            @X0F"
  328.     PrintLn "  @X8C#   @X0BDESCRIPTION@POS:46@@X0CDAMAGE@POS:55@@X0AWEAPON COST"
  329.     PrintLn "@X06────────────────────────────────────────────────────────────────────────────"
  330.     DTop 2
  331.     :LABEL006
  332.     If (DEof(2)) Goto LABEL007
  333.     STRING004 = Trim(DGet(2, "DESCRIPT"), " ")
  334.     STRING004 = STRING004 + "·····································"
  335.     STRING004 = Left(STRING004, 40)
  336.     PrintLn "@X0C", DGet(2, "NUMBER"), "@X0E)@X0B@POS:7@", STRING004, "@X0C@POS:45@", DGet(2, "DAMAGE"), "@POS:55@@X0A", DGet(2, "COST")
  337.     If (!DEof(2)) DSkip 2, 1
  338.     Goto LABEL006
  339.     :LABEL007
  340.     Newline
  341.     Print "@X0AYou have@X0B ", Trim(DGet(0, "CASH"), " "), "@X0A credits - "
  342.     InputStr "@X0AYour Choice Soldier @X02(@X0CQ@X02)@X0Cuit @X02> _", STRING003, 10, 2, "0123456789Q", 0 + 8
  343.     If (STRING003 == "Q") Goto LABEL002
  344.     DTop 2
  345.     DGo 2, STRING003
  346.     If (DGet(0, "CASH") < ToInteger(DGet(2, "COST"))) Then
  347.         Backup 80
  348.         ClrEol
  349.         PrintLn "@X0CYou only have @X0E", Trim(DGet(0, "CASH"), " "), "@X0C credits@X0F"
  350.         Delay (2 * 182) / 10
  351.         Goto LABEL005
  352.     Endif
  353.     If (DGet(0, "WEAPN1") < 1) Then
  354.         DPut 0, "CASH", DGet(0, "CASH") - DGet(2, "COST")
  355.         DPut 0, "WEAPN1", ToInteger(STRING003)
  356.         DPut 0, "WEAPT1", DGet(2, "DESCRIPT")
  357.         DPut 0, "WEAPD1", DGet(2, "DAMAGE")
  358.         DPut 0, "WEAPA1", 50
  359.         Goto LABEL002
  360.     Endif
  361.     If (DGet(0, "WEAPN2") < 1) Then
  362.         DPut 0, "CASH", DGet(0, "CASH") - DGet(2, "COST")
  363.         DPut 0, "WEAPN2", ToInteger(STRING003)
  364.         DPut 0, "WEAPT2", DGet(2, "DESCRIPT")
  365.         DPut 0, "WEAPD2", DGet(2, "DAMAGE")
  366.         DPut 0, "WEAPA2", 50
  367.         Goto LABEL002
  368.     Endif
  369.     If (DGet(0, "S_W_NUMBER") < 1) Then
  370.         DPut 0, "CASH", DGet(0, "CASH") - DGet(2, "COST")
  371.         DPut 0, "S_W_NUMBER", ToInteger(STRING003)
  372.         DPut 0, "S_W_NAME", DGet(2, "DESCRIPT")
  373.         DPut 0, "S_W_DAMAGE", DGet(2, "DAMAGE")
  374.         DPut 0, "S_W_AMMO", 50
  375.         Goto LABEL002
  376.     Endif
  377.     :LABEL008
  378.     DCloseAll
  379.     End
  380.  
  381. ;------------------------------------------------------------------------------
  382. ;
  383. ; Usage report (before postprocessing)
  384. ;
  385. ; ■ Statements used :
  386. ;
  387. ;    2       End
  388. ;    4       Cls
  389. ;    8       ClrEol
  390. ;    65      Goto 
  391. ;    25      Let 
  392. ;    2       Print 
  393. ;    48      PrintLn 
  394. ;    44      If 
  395. ;    1       StartDisp 
  396. ;    4       InputStr 
  397. ;    9       Delay 
  398. ;    17      Newline
  399. ;    1       Newlines 
  400. ;    8       Backup 
  401. ;    1       EndFunc
  402. ;    2       DOpen 
  403. ;    1       DCloseAll
  404. ;    5       DTop 
  405. ;    5       DGo 
  406. ;    1       DSkip 
  407. ;    3       DGet 
  408. ;    66      DPut 
  409. ;    32      DFCopy 
  410. ;
  411. ;
  412. ; ■ Functions used :
  413. ;
  414. ;    12      *
  415. ;    12      /
  416. ;    21      +
  417. ;    7       -
  418. ;    16      ==
  419. ;    16      <
  420. ;    16      >
  421. ;    35      !
  422. ;    6       &&
  423. ;    4       Left()
  424. ;    10      Trim()
  425. ;    3       Random()
  426. ;    1       String()
  427. ;    2       PPEPath()
  428. ;    2       PcbNode()
  429. ;    1       GetEnv()
  430. ;    5       ToInteger()
  431. ;    2       DEof()
  432. ;    73      DGet()
  433. ;
  434. ;------------------------------------------------------------------------------
  435. ;
  436. ; Analysis flags : No flag
  437. ;
  438. ;------------------------------------------------------------------------------
  439. ;
  440. ; Postprocessing report
  441. ;
  442. ;    0       For/Next
  443. ;    0       While/EndWhile
  444. ;    23      If/Then or If/Then/Else
  445. ;    3       Select Case
  446. ;
  447. ;------------------------------------------------------------------------------
  448. ;                 AEGiS Corp - Break the routines, code against the machines!
  449. ;------------------------------------------------------------------------------
  450.